home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok84 / reqtools_2.1d / glue.lha / Glue / SAS-C / src / rtGetStringA.asm < prev    next >
Assembly Source File  |  1991-05-25  |  242b  |  19 lines
  1.  
  2.     SECTION "code",CODE
  3.  
  4.     INCLUDE    "reqtools.i"
  5.  
  6.     XDEF    _rtGetStringA
  7.  
  8. _rtGetStringA:
  9.     movem.l    a2/a3/a6,-(a7)
  10.     GETRTBASE
  11.     move.l    16(a7),a1
  12.     movem.l    20(a7),d0/a2/a3
  13.     move.l    32(a7),a0
  14.     jsr        _LVOrtGetStringA(a6)
  15.     movem.l    (a7)+,a2/a3/a6
  16.     rts
  17.  
  18.    END
  19.